home *** CD-ROM | disk | FTP | other *** search
/ Mac Installer 3 / Mac Installer Volume 3 (1996).iso / mac / MM Director 5.0 / FileFlex Lite / FileFlex Xtras / -Database Designer / 00004.ls < prev    next >
Encoding:
Text File  |  1996-10-15  |  2.5 KB  |  52 lines

  1. on doCreateScroll
  2.   global topPointsToLine, dgDkBlueColor, dgYellowColor
  3.   set maxLinesVisible to 10
  4.   cursor(4)
  5.   set bottom to topPointsToLine + maxLinesVisible
  6.   put line topPointsToLine to bottom of field "masterNameList" into field "visNameList"
  7.   if (the frameLabel = "Create") or (the frameLabel = "Index") then
  8.     put line topPointsToLine to bottom of field "masterTypeList" into field "visTypeList"
  9.     put line topPointsToLine to bottom of field "masterWidthList" into field "visWidthList"
  10.     put line topPointsToLine to bottom of field "masterDecimalsList" into field "visDecimalsList"
  11.   end if
  12.   if the frameLabel = "Browse" then
  13.     put line topPointsToLine to bottom of field "masterContentList" into field "visContentList"
  14.   end if
  15.   if topPointsToLine > 1 then
  16.     set the castNum of sprite 9 to the number of member "scrollUpEnabled"
  17.   else
  18.     set the castNum of sprite 9 to the number of member "scrollUpDisabled"
  19.   end if
  20.   if (the number of lines in field "masterNameList" - topPointsToLine - 9) > 0 then
  21.     set the castNum of sprite 10 to the number of member "scrollDownEnabled"
  22.   else
  23.     set the castNum of sprite 10 to the number of member "scrollDownDisabled"
  24.   end if
  25.   set the foreColor of member "visNameList" to dgYellowColor
  26.   set the textFont of member "visNameList" to "Helvetica"
  27.   set the textHeight of member "visNameList" to 16
  28.   set the textSize of member "visNameList" to 12
  29.   if (the frameLabel = "Create") or (the frameLabel = "Index") then
  30.     set the foreColor of member "visTypeList" to dgYellowColor
  31.     set the foreColor of member "visWidthList" to dgYellowColor
  32.     set the foreColor of member "visDecimalsList" to dgYellowColor
  33.     set the textFont of member "visTypeList" to "Helvetica"
  34.     set the textFont of member "visWidthList" to "Helvetica"
  35.     set the textFont of member "visDecimalsList" to "Helvetica"
  36.     set the textHeight of member "visTypeList" to 16
  37.     set the textHeight of member "visWidthList" to 16
  38.     set the textHeight of member "visDecimalsList" to 16
  39.     set the textSize of member "visTypeList" to 12
  40.     set the textSize of member "visWidthList" to 12
  41.     set the textSize of member "visDecimalsList" to 12
  42.   end if
  43.   if the frameLabel = "Browse" then
  44.     set the foreColor of member "visContentList" to dgYellowColor
  45.     set the textFont of member "visContentList" to "Helvetica"
  46.     set the textHeight of member "visContentList" to 16
  47.     set the textSize of member "visContentList" to 12
  48.   end if
  49.   updateStage()
  50.   cursor(-1)
  51. end
  52.